home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 162 / 162.d81 / b.text charter (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1997-01-01  |  9.7 KB  |  282 lines
  1. 10 poke55,0:poke56,160:clr:rem top$a000
  2. 20 dv=peek(186):ifdv<8thendv=8
  3. 30 print"[147]":s$="    ":dimln$(42)
  4. 40 poke53280,0:poke53281,0
  5. 50 poke53272,23:poke198,0
  6. 100 print"[147][153]  [193]nother [205]ighty [204]oadstar [198]ont [195]harter"
  7. 110 print"      [208]rogram by [204]ee [206]ovak in 1997"
  8. 120 print"[150]      active keys for next screen"
  9. 130 print"  while small portion of chart showing "
  10. 140 print"     [159][198]-[203]eys[154] [193]lter [209]uadrants"
  11. 150 print"            cycles through variations"
  12. 160 print"          [159][208][154] [211]end to [208]rinter #4"
  13. 170 print"          [159][209][154] [209]uit to [204][207][193][196][211][212][193][210]"
  14. 180 print"          [159]_[154] [209]uit to [194][193][211][201][195]"
  15. 185 print"[159]  [208]rogram sends [208][197][212][193][211][195][201][201] strings plus:"
  16. 190 print"  -chr$(27,65,7,13) for [154][197]pson printers"
  17. 200 print"  -chr$(8,13,15) for [154][195]ommodore printers"
  18. 220 print"  -chr$(8,13,15,27,60) for the [154][205][208][211]-1200"
  19. 230 print"              [158][208]ress a [203]ey!"
  20. 240 print"[158] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  21. 250 print"[157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][189]";
  22. 260 print"[221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  23. 270 geta$:ifa$=""then270
  24. 280 print"[147]"
  25. 290 a=1:b=1:c=1:d=1:rem quadrant values
  26. 292 gosub1000:gosub2000:gosub2040:gosub2140:gosub2360:gosub2580
  27. 300 :
  28. 301 rem show chart
  29. 302 :
  30. 310 print"";
  31. 320 foro=1to18:printleft$(ln$(o),19),right$(ln$(o),19):next
  32. 900 geta$:ifa$="p"ora$="q"ora$="_"then4000
  33. 905 z=0
  34. 910 ifa$="[133]"thena=a+1:z=1:ifa=4thena=1
  35. 915 ifa$="[137]"thena=a-1:z=1:ifa=0thena=3
  36. 920 ifa$="[134]"thenb=b+1:z=2:ifb=6thenb=1
  37. 925 ifa$="[138]"thenb=b-1:z=2:ifb=0thenb=5
  38. 930 ifa$="[135]"thenc=c+1:z=3:ifc=6thenc=1
  39. 935 ifa$="[139]"thenc=c-1:z=3:ifc=0thenc=5
  40. 940 ifa$="[136]"thend=d+1:z=4:ifd=6thend=1
  41. 945 ifa$="[140]"thend=d-1:z=4:ifd=0thend=5
  42. 950 onzgosub2040,2140,2360,2580
  43. 960 onzgosub1990,2110,2270,2490
  44. 970 ifzthen300
  45. 980 goto900
  46. 999 print"":poke198,0:end
  47. 1000 t1$   ="[176][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178]"
  48. 1010 t2$   ="[192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][174]"
  49. 1020 b1$(1)="[173][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177]"
  50. 1030 b2$(1)="[192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][189]"
  51. 1040 b1$(2)="[173][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177]"
  52. 1050 b2$(2)="[192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][189]"
  53. 1060 b1$(3)="[173][192][177][192][177][192][192][192][192][192][177][192][192][192][192][192][177][192][192][192][192][192][177][192][192][192][192][192][177][192][192][192][192]"
  54. 1070 b2$(3)="[192][177][192][192][192][192][192][177][192][192][192][192][192][177][192][192][192][192][192][177][192][192][192][192][192][177][192][192][192][192][192][189]"
  55. 1100 x1$(1)="[221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]"
  56. 1110 x2$(1)=" [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]"
  57. 1120 x1$(2)="[221]@[221]a[221]b[221]c[221]d[221]e[221]f[221]g[221]h[221]i[221]j[221]k[221]l[221]m[221]n[221]o[221]"
  58. 1130 x2$(2)="p[221]q[221]r[221]s[221]t[221]u[221]v[221]w[221]x[221]y[221]z[221][[221]\[221]][221]^[221]_[221]"
  59. 1140 x1$(3)="[221] [221]![221]'[221]#[221]$[221]%[221]&[221]'[221]([221])[221]*[221]+[221],[221]-[221].[221]/[221]"
  60. 1150 x2$(3)="0[221]1[221]2[221]3[221]4[221]5[221]6[221]7[221]8[221]9[221]:[221];[221]<[221]=[221]>[221]?[221]"
  61. 1160 x1$(4)="[221][192][221][193][221][194][221][195][221][196][221][197][221][198][221][199][221][200][221][201][221][202][221][203][221][204][221][205][221][206][221][207][221]"
  62. 1170 x2$(4)="[208][221][209][221][210][221][211][221][212][221][213][221][214][221][215][221][216][221][217][221][218][221][219][221] [221][221][221] [221] [221]"
  63. 1180 x1$(5)="[221] [221]a[221]b[221]c[221]d[221]e[221]f[221]g[221]h[221]i[221]j[221]k[221]l[221]m[221]n[221]o[221]"
  64. 1190 x2$(5)="p[221]q[221]r[221]s[221]t[221]u[221]v[221]w[221]x[221]y[221]z[221] [221] [221] [221] [221] [221]"
  65. 1200 x1$(6)="[221] [221]![221]'[221]#[221]$[221]%[221]&[221]'[221]([221])[221]*[221]+[221],[221]-[221].[221]/[221]"
  66. 1210 x2$(6)="0[221]1[221]2[221]3[221]4[221]5[221]6[221]7[221]8[221]9[221]:[221] [221] [221] [221] [221] [221]"
  67. 1220 x1$(7)="[221] [221][193][221][194][221][195][221][196][221][197][221][198][221][199][221][200][221][201][221][202][221][203][221][204][221][205][221][206][221][207][221]"
  68. 1230 x2$(7)="[208][221][209][221][210][221][211][221][212][221][213][221][214][221][215][221][216][221][217][221][218][221] [221] [221] [221] [221] [221]"
  69. 1240 x1$(8)="[221]   [221]   [221]   [221]   [221]   [221]   [221]   [221]   [221]"
  70. 1250 x2$(8)="   [221]   [221]   [221]   [221]   [221]   [221]   [221]   [221]"
  71. 1260 x1$(9)="[221] [221] [221]     [221]     [221]     [221]     [221]    "
  72. 1270 x2$(9)=" [221]     [221]     [221]     [221]     [221]     [221]"
  73. 1280 x1$(0)="[221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221][171][221] [221][173][221][174][221] [221]"
  74. 1290 x2$(0)="[176][221][177][221][178][221][179][221] [221] [221] [221] [221] [221] [221] [221] [221] [221][189][221] [221] [221]"
  75. 1300 y1$(1)="[171][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219]"
  76. 1310 y2$(1)="[192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][179]"
  77. 1320 y1$(2)="[171][192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][219]"
  78. 1330 y2$(2)="[192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][179]"
  79. 1340 y1$(3)="[171][192][219][192][219][192][177][192][177][192][219][192][177][192][177][192][219][192][177][192][177][192][219][192][177][192][177][192][219][192][177][192][177]"
  80. 1350 y2$(3)="[192][219][192][177][192][177][192][219][192][177][192][177][192][219][192][177][192][177][192][219][192][177][192][177][192][219][192][177][192][177][192][179]"
  81. 1400 y1$(4)="[171][192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][219]"
  82. 1410 y2$(4)="[192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][179]"
  83. 1420 y1$(5)="[171][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219]"
  84. 1430 y2$(5)="[192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][179]"
  85. 1440 y1$(6)="[171][192][178][192][219][192][192][192][177][192][178][192][177][192][192][192][219][192][192][192][177][192][178][192][177][192][192][192][219][192][192][192][177]"
  86. 1450 y2$(6)="[192][178][192][177][192][192][192][219][192][192][192][177][192][178][192][177][192][192][192][219][192][192][192][177][192][178][192][177][192][192][192][179]"
  87. 1500 y1$(7)="[171][192][219][192][219][192][178][192][178][192][219][192][178][192][178][192][219][192][178][192][178][192][219][192][178][192][178][192][219][192][178][192][178]"
  88. 1510 y2$(7)="[192][219][192][178][192][178][192][219][192][178][192][178][192][219][192][178][192][178][192][219][192][178][192][178][192][219][192][178][192][178][192][179]"
  89. 1520 y1$(8)="[171][192][177][192][219][192][192][192][178][192][177][192][178][192][192][192][219][192][192][192][178][192][177][192][178][192][192][192][219][192][192][192][178]"
  90. 1530 y2$(8)="[192][177][192][178][192][192][192][219][192][192][192][178][192][177][192][178][192][192][192][219][192][192][192][178][192][177][192][178][192][192][192][179]"
  91. 1540 y1$(9)="[171][192][219][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192]"
  92. 1550 y2$(9)="[192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][179]"
  93. 1600 uh$(1)="[221]*[146][221]a[146][221]b[146][221]c[146][221]d[146][221]e[146][221]f[146][221]g[146][221]h[146][221]i[146][221]j[146]"
  94. 1610 uh$(2)="[221]k[146][221]l[146][221]m[146][221]n[146][221]o[146][221]p[146][221]q[146][221]r[146][221]s[146][221]t[146][221]u[146]"
  95. 1620 uh$(3)="[221]v[146][221]w[146][221]x[146][221]y[146][221]z[146]"
  96. 1630 uh$(4)="[221]+[146][221]-[221]-[146][221]^[146][221]*[221]"
  97. 1640 uh$(5)="[221] [146][221]k[221]i[221]t[221]@[221]g[221]+[221]m[221]\[221]\[146][221]n[221]q[221]d[221]z[221]s[221]p"
  98. 1650 uh$(6)="[221]a[221]e[221]r[221]w[221]h[221]j[221]l[221]y[221]u[221]o[221]@[146][221]f[221]c[221]x[221]v[221]b[221]"
  99. 1990 :
  100. 1991 return
  101. 1992 :
  102. 2000 ln$(1)="     0 1 2 3 4 5 6 7 8 9 a b c d e f"
  103. 2010 ln$(1)=ln$(1)+" 0 1 2 3 4 5 6 7 8 9 a b c d e f     "
  104. 2020 ln$(2)="    [176][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192]"
  105. 2030 ln$(2)=ln$(2)+"[178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][174]    "
  106. 2034 :
  107. 2035 return
  108. 2036 :
  109. 2040 ifa=3thenln$(3)=" 0/1"+x1$(1)+x2$(1)+"+0  "
  110. 2050 ifa=1thenln$(3)=" 0/1"+x1$(2)+x2$(2)+"+0  "
  111. 2060 ifa=2thenln$(3)=" 0/1"+x1$(5)+x2$(5)+"+0  "
  112. 2070 ln$(4)=s$+y1$(1)+y2$(1)+s$
  113. 2080 ifa=3thenln$(5)=" 2/3"+x1$(1)+x2$(1)+"+32 "
  114. 2090 ifa=1thenln$(5)=" 2/3"+x1$(3)+x2$(3)+"+32 "
  115. 2100 ifa=2thenln$(5)=" 2/3"+x1$(6)+x2$(6)+"+32 "
  116. 2110 ifb<4thenln$(6)=s$+y1$(1)+y2$(1)+s$
  117. 2120 ifb=4thenln$(6)=s$+y1$(2)+y2$(2)+s$
  118. 2130 ifb=5thenln$(6)=s$+y1$(3)+y2$(3)+s$
  119. 2134 :
  120. 2135 return
  121. 2136 :
  122. 2140 ifb=3thenln$(7)=" 4/5"+x1$(1)+x2$(1)+"+64 "
  123. 2150 ifb=1thenln$(7)=" 4/5"+x1$(4)+x2$(4)+"+64 "
  124. 2160 ifb=2thenln$(7)=" 4/5"+x1$(7)+x2$(7)+"+64 "
  125. 2170 ifb=4thenln$(7)=" 4/5"+x1$(8)+x2$(8)+"+64 "
  126. 2180 ifb=5thenln$(7)=" 4/5"+x1$(9)+x2$(9)+"+64 "
  127. 2190 ifb<4thenln$(8)=s$+y1$(1)+y2$(1)+s$
  128. 2200 ifb=4thenln$(8)=s$+x1$(8)+x2$(8)+s$
  129. 2210 ifb=5thenln$(8)=s$+"[171][192][219][192][179]"+right$(x1$(9),28)+x2$(9)+s$
  130. 2220 ifb=3thenln$(9)=" 6/7"+x1$(1)+x2$(1)+"+96 "
  131. 2230 ifb=1thenln$(9)=" 6/7"+x1$(0)+x2$(0)+"+96 "
  132. 2240 ifb=2thenln$(9)=" 6/7"+x1$(1)+x2$(1)+"+96 "
  133. 2250 ifb=4thenln$(9)=" 6/7"+x1$(8)+x2$(8)+"+96 "
  134. 2260 ifb=5thenln$(9)=" 6/7"+x1$(9)+x2$(9)+"+96 "
  135. 2270 ifb<4andc<4thenln$(10)=s$+y1$(1)+y2$(1)+s$
  136. 2280 ifb<4andc=4thenln$(10)=s$+y1$(2)+y2$(2)+s$
  137. 2290 ifb<4andc=5thenln$(10)=s$+y1$(3)+y2$(3)+s$
  138. 2300 ifb=4andc<4thenln$(10)=s$+y1$(4)+y2$(4)+s$
  139. 2310 ifb=4andc=4thenln$(10)=s$+y1$(5)+y2$(5)+s$
  140. 2320 ifb=4andc=5thenln$(10)=s$+y1$(6)+y2$(6)+s$
  141. 2330 ifb=5andc<4thenln$(10)=s$+y1$(7)+y2$(7)+s$
  142. 2340 ifb=5andc=4thenln$(10)=s$+y1$(8)+y2$(8)+s$
  143. 2350 ifb=5andc=5thenln$(10)=s$+y1$(9)+y2$(9)+s$
  144. 2354 :
  145. 2355 return
  146. 2356 :
  147. 2360 ifc=3thenln$(11)=" 8/9"+x1$(1)+x2$(1)+"+128"
  148. 2370 ifc=1thenln$(11)=" 8/9"+x1$(2)+x2$(2)+"+128"
  149. 2380 ifc=2thenln$(11)=" 8/9"+x1$(5)+x2$(5)+"+128"
  150. 2390 ifc=4thenln$(11)=" 8/9"+x1$(8)+x2$(8)+"+128"
  151. 2400 ifc=5thenln$(11)=" 8/9"+x1$(9)+x2$(9)+"+128"
  152. 2410 ifc<4thenln$(12)=s$+y1$(1)+y2$(1)+s$
  153. 2420 ifc=4thenln$(12)=s$+x1$(8)+x2$(8)+s$
  154. 2430 ifc=5thenln$(12)=s$+"[171][192][219][192][179]"+right$(x1$(9),28)+x2$(9)+s$
  155. 2440 ifc=3thenln$(13)=" a/b"+x1$(1)+x2$(1)+"+160"
  156. 2450 ifc=1thenln$(13)=" a/b"+x1$(3)+x2$(3)+"+160"
  157. 2460 ifc=2thenln$(13)=" a/b"+x1$(6)+x2$(6)+"+160"
  158. 2470 ifc=4thenln$(13)=" a/b"+x1$(8)+x2$(8)+"+160"
  159. 2480 ifc=5thenln$(13)=" a/b"+x1$(9)+x2$(9)+"+160"
  160. 2490 ifc<4andd<4thenln$(14)=s$+y1$(1)+y2$(1)+s$
  161. 2500 ifc<4andd=4thenln$(14)=s$+y1$(2)+y2$(2)+s$
  162. 2510 ifc<4andd=5thenln$(14)=s$+y1$(3)+y2$(3)+s$
  163. 2520 ifc=4andd<4thenln$(14)=s$+y1$(4)+y2$(4)+s$
  164. 2530 ifc=4andd=4thenln$(14)=s$+y1$(5)+y2$(5)+s$
  165. 2540 ifc=4andd=5thenln$(14)=s$+y1$(6)+y2$(6)+s$
  166. 2550 ifc=5andd<4thenln$(14)=s$+y1$(7)+y2$(7)+s$
  167. 2560 ifc=5andd=4thenln$(14)=s$+y1$(8)+y2$(8)+s$
  168. 2570 ifc=5andd=5thenln$(14)=s$+y1$(9)+y2$(9)+s$
  169. 2574 :
  170. 2575 return
  171. 2576 :
  172. 2580 ifd=3thenln$(15)=" c/d"+x1$(1)+x2$(1)+"+192"
  173. 2590 ifd=1thenln$(15)=" c/d"+x1$(4)+x2$(4)+"+192"
  174. 2600 ifd=2thenln$(15)=" c/d"+x1$(7)+x2$(7)+"+192"
  175. 2610 ifd=4thenln$(15)=" c/d"+x1$(8)+x2$(8)+"+192"
  176. 2620 ifd=5thenln$(15)=" c/d"+x1$(9)+x2$(9)+"+192"
  177. 2630 ifd<4thenln$(16)=s$+y1$(1)+y2$(1)+s$
  178. 2640 ifd=4thenln$(16)=s$+x1$(8)+x2$(8)+s$
  179. 2650 ifd=5thenln$(16)=s$+"[171][192][219][192][179]"+right$(x1$(9),28)+x2$(9)+s$
  180. 2660 ifd=3thenln$(17)=" e/f"+x1$(1)+x2$(1)+"+224"
  181. 2670 ifd=1thenln$(17)=" e/f"+x1$(0)+x2$(0)+"+224"
  182. 2680 ifd=2thenln$(17)=" e/f"+x1$(1)+x2$(1)+"+224"
  183. 2690 ifd=4thenln$(17)=" e/f"+x1$(8)+x2$(8)+"+224"
  184. 2700 ifd=5thenln$(17)=" e/f"+x1$(9)+x2$(9)+"+224"
  185. 2710 ifd<4thenln$(18)=s$+b1$(1)+b2$(1)+s$
  186. 2720 ifd=4thenln$(18)=s$+b1$(2)+b2$(2)+s$
  187. 2730 ifd=5thenln$(18)=s$+b1$(3)+b2$(3)+s$
  188. 2990 :
  189. 2991 return
  190. 2992 :
  191. 3000 ln$(19)=s$+" 0 1 2 3 4 5 6 7 8 9 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2"
  192. 3010 ln$(19)=ln$(19)+" 3 3 "+s$
  193. 3020 ln$(20)=s$+"                     0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9"
  194. 3030 ln$(20)=ln$(20)+" 0 1 "+s$
  195. 3040 ln$(21)=" "
  196. 3050 ln$(22)=ln$(2)
  197. 3060 ln$(23)=" 0/1"+x1$(2)+x2$(2)+"+0  "
  198. 3070 ln$(24)=s$+y1$(1)+y2$(1)+s$
  199. 3080 ln$(25)=" 2/3"+x1$(3)+x2$(3)+"+32 "
  200. 3090 ln$(26)=s$+y1$(1)+y2$(1)+s$
  201. 3100 ln$(27)=" 4/5"+uh$(1)+uh$(2)+uh$(3)+uh$(4)+"+64 "
  202. 3110 ln$(28)=s$+y1$(1)+y2$(1)+s$
  203. 3120 ln$(29)=" 6/7"+uh$(5)+uh$(6)+"+96 "
  204. 3130 ln$(30)=s$+y1$(1)+y2$(1)+s$
  205. 3140 ln$(31)=" 8/9"+x1$(2)+x2$(2)+"+128"
  206. 3150 ln$(32)=s$+y1$(1)+y2$(1)+s$
  207. 3160 ln$(33)=" a/b"+x1$(3)+x2$(3)+"+160"
  208. 3170 ln$(34)=s$+y1$(1)+y2$(1)+s$
  209. 3180 ln$(35)=" c/d"+uh$(1)+uh$(2)+uh$(3)+uh$(4)+"+192"
  210. 3190 ln$(36)=s$+y1$(1)+y2$(1)+s$
  211. 3200 ln$(37)=" e/f"+uh$(5)+uh$(6)+"+224"
  212. 3210 ln$(38)=s$+b1$(1)+b2$(1)+s$
  213. 3220 ln$(39)=ln$(1)
  214. 3230 ln$(41)=" "
  215. 3240 ln$(42)="              basic keys     shifted keys[146]    (commodore keys)"
  216. 3990 return
  217. 4000 :
  218. 4001 rem print or quit?
  219. 4002 :
  220. 4010 ifa$="_"thenpoke198,0:end:rem quit
  221. 4020 ifa$="q"then40000:rem loadstar
  222. 4024 :
  223. 4025 rem user wants to print!
  224. 4026 :
  225. 4030 gosub3000:rem get 2nd chart into $
  226. 4040 print" [197][152]pson, [195][152]ommodore, or [205][152][208][211]-1200 ? [159]";
  227. 4050 geta$:ifa$<>"e"anda$<>"c"anda$<>"m"then4050
  228. 4052 g$="[197]pson"
  229. 4054 ifa$="c"theng$="[195]ommie"
  230. 4056 ifa$="m"theng$="[205][208][211]..."
  231. 4058 printg$
  232. 4060 print" [152][208]rint a lookup chart also ? y[152]/n[152] [159]";
  233. 4070 getb$:ifb$<>"y"andb$<>"n"then4070
  234. 4075 g$="no":ifb$="y"theng$="yes"
  235. 4080 printg$
  236. 4090 print"[153] * [199]et printer 4 ready and hit [210][197][212][213][210][206] *"
  237. 4095 getc$:ifc$<>chr$(13)then4095
  238. 4100 :
  239. 4101 rem escape codes for printer (pj$)
  240. 4102 :
  241. 4110 ifa$="c"thenpj$=chr$(8)+chr$(13)+chr$(15):rem commodore
  242. 4120 ifa$="e"thenpj$=chr$(27)+chr$(65)+chr$(7)+chr$(13):rem epson
  243. 4130 ifa$="m"thenpj$=chr$(8)+chr$(13)+chr$(15)+chr$(27)+"<":rem lee's mps-1200
  244. 4160 rem ------------------------------
  245. 4170 rem chr$(27,65,7) is 7/72' spacing
  246. 4180 rem chr$(8,15) is bit-mode on/off
  247. 4190 rem chr$(27)+"<" is unidirectional
  248. 4200 :
  249. 4201 rem printer 4 detect
  250. 4202 :
  251. 4210 close4:open4,4,7:close4
  252. 4220 ifstthenopen4,3:goto4300
  253. 4230 open4,4,7
  254. 4300 :
  255. 4301 rem print it out!
  256. 4302 rem a$: c=commie e=epson m=mps1200
  257. 4303 rem b$: y=all n=stop after line 20
  258. 4304 :
  259. 4310 foro=1to42
  260. 4330 print#4,"    "+ln$(o);pj$;
  261. 4350 ifo=20andb$="n"then4400
  262. 4390 next
  263. 4400 ifa$="c"ora$="m"thenprint#4
  264. 4410 ifa$="e"thenprint#4,chr$(27)"@"
  265. 4420 close4
  266. 4444 goto50:rem back to title screen!
  267. 39997 :
  268. 39998 return to loadstar
  269. 39999 :
  270. 40000 fori=8to29:poke820+i,i:next:ifdv>8anddv<30thenpoke828,dv:poke820+dv,8
  271. 40010 a$="presenter":gosub40030:a$="hello connect":gosub40030
  272. 40020 print"[147]":poke53272,23:poke186,8:poke2048,0:poke44,8:poke43,1:end
  273. 40030 forj=8to29:i=peek(820+j):ifi=14thennext
  274. 40040 close2:open2,i,2:close2:ifstthen40060
  275. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  276. 40060 next:return
  277. 40070 a$="hello connect":q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  278. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  279. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  280. 63998 end
  281. 63999 a$="text charter":open15,8,15,"s0:"+a$:close15:savea$,8
  282.